; Music of Fantasy Demo End Part () ()
; Ripped by Megachur on 01/08/2008

	write "FANTADEP.BIN"

music_date_rip	equ &0188
music_adr	equ &4ce0
first_theme	equ 0	; 0 -> 0
last_theme	equ 0

	read "music_header_v1_0.asm"


; #5178 "ST-128 Module"

	jp l4ce9	; init music
	jp l4d7d	; play music
	jp l4d61	; stop music
;
.init_music
.l4ce9
;
	xor a
	ld hl,l5294
	call l4d5a
	ld hl,l52c2
	call l4d5a
	ld hl,l52f0
	call l4d5a
	ld ix,l5290
	ld iy,l531a
	ld de,#002e
	ld b,#03
.l4d09
	push bc
	inc (ix+#1f)
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#24),a
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld (ix+#22),l
	ld (ix+#23),h
	ld (ix+#20),c
	ld (ix+#21),b
	ld (ix+#25),#ff
	add ix,de
	inc iy
	inc iy
	pop bc
	djnz l4d09
	ld hl,l51a9
	ld (hl),#0d
	inc hl
	ld (hl),#40
	inc hl
	ld (hl),#01
	inc hl
	ld (hl),d
	inc hl
	ld (hl),#38
	ld hl,#ffff
	ld (l51a5),hl
	ld (l51a7),hl
	ld a,#0c
	ld c,d
	call l5185
	ld a,#0d
	ld c,d
	jp l5185
.l4d5a
	ld b,#2a
.l4d5c
	ld (hl),a
	inc hl
	djnz l4d5c
	ret
;
.l4d61
.stop_music
;
	ld a,#07
	ld c,#3f
	call l5185
	ld a,#08
	ld c,#00
	call l5185
	ld a,#09
	ld c,#00
	call l5185
	ld a,#0a
	ld c,#00
	jp l5185
;
.play_music
.l4d7d
;
	ld hl,l51ab
	dec (hl)
	ld ix,l5290
	ld bc,l529e
	call l4e1f
	ld ix,l52be
	ld bc,l52cc
	call l4e1f
	ld ix,l52ec
	ld bc,l52fa
	call l4e1f
	ld hl,l51a4
	ld de,l51ab
	ld b,#06
	call l4dfc
	ld b,#07
	call l4dfc
	ld b,#0b
	call l4dfc
	ld b,#0d
	call l4dfc
	ld de,l51ab
	ld a,(de)
	or a
	ret nz
	inc hl
	ldi
	dec (hl)
	ret nz
	ld (hl),#40
	ld hl,l52af
	call l4dd5
	ld hl,l52dd
	call l4dd5
	ld hl,l530b
.l4dd5
	ld (hl),#01
	inc hl
	ld b,h
	ld c,l
	inc hl
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld a,(de)
	cp #80
	jr nz,l4dea
	ex de,hl
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld a,(de)
.l4dea
	inc de
	ex de,hl
	ld d,b
	ld e,c
	ldi
	ldi
	ex de,hl
	ld (hl),e
	inc hl
	ld (hl),d
	inc hl
	ld (hl),a
	inc hl
	ld (hl),#ff
	ret
.l4dfc
	inc hl
	inc de
	ld a,(de)
	cp (hl)
	ret z
	ld (hl),a
	ld c,a
	ld a,b
	jp l5185
.l4e07
	ld a,(hl)
	ld (ix+#1f),a
	inc hl
	ld (ix+#20),l
	ld (ix+#21),h
	ld (ix+#17),d
	ld (ix+#15),d
	ld c,d
	ld a,(ix+#00)
	jp l5185
.l4e1f
	ld a,(l51ab)
	or a
	jp nz,l4ed7
	ld (ix+#08),a
	ld (ix+#0a),a
	dec (ix+#1f)
	jp nz,l4ed7
	ld d,a
	ld l,(ix+#20)
	ld h,(ix+#21)
	ld a,(hl)
	inc hl
	cp #fe
	jr z,l4e07
	or a
	jp z,l4ecc
	ld r,a
	and #7f
	cp #10
	jr c,l4ea7
	ld e,(hl)
	inc hl
	push hl
	push bc
	sub #10
	add #00
	add (ix+#24)
	ld (ix+#07),a
	ld b,d
	call l501f
	ld (ix+#16),b
	ld (ix+#17),#20
	inc b
	ld (ix+#2c),b
	ld (ix+#2d),b
	dec b
	ld a,e
	pop de
	ld i,a
	and #f0
	cp (ix+#25)
	jr z,l4e80
	ld (ix+#25),a
	ld (ix+#1e),b
	ld (ix+#29),b
.l4e80
	rrca
	ld c,a
	ld hl,l5320
	add hl,bc
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	bit 6,(hl)
	ldi
	ldi
	ld b,#00
	jr z,l4e9f
	ld (ix+#1e),b
.l4e9f
	ld a,i
	pop hl
	ld d,b
	and #0f
	jr z,l4ec0
.l4ea7
	ld b,d
	ex de,hl
	and #0f
	dec a
	add a
	ld c,a
	ld hl,l51b0
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	push hl
	ex de,hl
	ld d,b
	ret
	add b
	add e
	add h
	add l
	add (hl)
	add h
.l4ec0
	ld a,d
	or a
	jr nz,l4ece
	ld a,r
	bit 7,a
	ld a,#01
	jr nz,l4ece
.l4ecc
	ld a,(hl)
	inc hl
.l4ece
	ld (ix+#1f),a
	ld (ix+#20),l
	ld (ix+#21),h
.l4ed7
	ld a,(ix+#17)
	or a
	jr nz,l4eed
	ld a,(ix+#15)
	or a
	ret z
	ld (ix+#17),a
	ld a,(ix+#14)
	and #1f
	ld (ix+#16),a
.l4eed
	ld d,#00
	ld e,(ix+#16)
	dec (ix+#2c)
	jr nz,l4f03
	ld a,(ix+#2d)
	ld (ix+#2c),a
	inc (ix+#16)
	dec (ix+#17)
.l4f03
	ld a,(ix+#0d)
	or a
	jr z,l4f11
	ld h,a
	ld l,(ix+#0c)
	add hl,de
	ld a,(hl)
	jr l4f2f
.l4f11
	ld a,(ix+#1a)
	or a
	jp z,l4f36
	ld c,a
	cp #03
	jr nz,l4f1e
	xor a
.l4f1e
	inc a
	ld (ix+#1a),a
	dec c
	ld a,c
	jr z,l4f2f
	ld a,(ix+#18)
	dec c
	jr z,l4f2f
	ld a,(ix+#19)
.l4f2f
	add (ix+#07)
	ld b,d
	call l501f
.l4f36
	ld l,(ix+#04)
	ld h,(ix+#05)
	push hl
	ld a,(ix+#08)
	or a
	jr z,l4f5e
	dec (ix+#1b)
	jr nz,l4f5e
	ld a,(ix+#08)
	ld (ix+#1b),a
	ld c,(ix+#1c)
	ld b,(ix+#1d)
	add hl,bc
	ld (ix+#04),l
	ld (ix+#05),h
	ex (sp),hl
	jr l4f96
.l4f5e
	ld a,(ix+#29)
	or a
	jr z,l4f96
	ld b,a
	ld a,(ix+#27)
	dec (ix+#26)
	jr nz,l4f8d
	ld c,a
	ld a,(ix+#28)
	ld (ix+#26),a
	ld a,c
	add b
	ld (ix+#27),a
	cp (ix+#2a)
	jr nz,l4f84
	ld (ix+#29),#ff
	jr l4f8d
.l4f84
	cp (ix+#2b)
	jr nz,l4f8d
	ld (ix+#29),#01
.l4f8d
	ld b,d
	or a
	jp p,l4f93
	dec b
.l4f93
	ld c,a
	jr l4fa1
.l4f96
	ld h,(ix+#0f)
	ld l,(ix+#0e)
	add hl,de
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
.l4fa1
	pop hl
	bit 7,(ix+#14)
	jr z,l4faa
	ld h,d
	ld l,d
.l4faa
	add hl,bc
	ld c,l
	ld a,(ix+#01)
	call l5185
	ld c,h
	ld a,(ix+#02)
	call l5185
	ld h,(ix+#11)
	ld l,(ix+#10)
	add hl,de
	ld a,(hl)
	bit 7,a
	jr nz,l4ffd
	and #0f
	ld b,a
	ld a,(ix+#0a)
	or a
	jr z,l4fec
	dec (ix+#09)
	jr nz,l4fec
	ld c,a
	ld a,(ix+#0b)
	ld (ix+#09),a
	ld a,(ix+#1e)
	add c
	jp p,l4fe4
	xor a
	jr l4fe9
.l4fe4
	cp #10
	jr nz,l4fe9
	dec a
.l4fe9
	ld (ix+#1e),a
.l4fec
	ld a,b
	sub (ix+#1e)
	jr nc,l4ff3
	xor a
.l4ff3
	or (ix+#06)
	ld c,a
	ld a,(ix+#00)
	call l5185
.l4ffd
	ld l,(ix+#12)
	ld h,(ix+#13)
	add hl,de
	ld c,(hl)
	bit 7,c
	ret nz
	ld b,(ix+#03)
	ld hl,(l51ac)
	ld a,h
	or b
	ld h,a
	ld a,c
	and #1f
	jr z,l501b
	ld l,a
	ld a,b
	cpl
	and h
	ld h,a
.l501b
	ld (l51ac),hl
	ret
.l501f
	ld hl,l51ce
	cp #61
	jr nc,l5029
	add a
	ld c,a
	add hl,bc
.l5029
	ld a,(hl)
	ld (ix+#04),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	ret
.l5033
	ld (ix+#0d),d
	ld (ix+#06),d
	ld (ix+#1a),d
	call l5158
	ld (ix+#1e),a
	jp l4ec0
.l5045
	dec b
.l5046
	ld a,(hl)
	inc hl
	ld c,a
	and #0f
	bit 7,b
	jr z,l5051
	neg
.l5051
	ld (ix+#1c),a
	ld (ix+#1d),b
	ld a,c
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#08),a
	ld (ix+#1b),a
	jp l4ec0
.l5067
	dec b
	jr l506b
.l506a
	inc b
.l506b
	call l5158
	ld (ix+#0b),a
	ld (ix+#09),a
	ld (ix+#0a),b
	jp l4ec0
.l507a
	ld a,(hl)
	inc hl
	ld c,a
	and #0f
	ld (ix+#1e),a
	ld a,c
	and #f0
	rrca
	rrca
	rrca
	jp l513d
.l508b
	ld a,(hl)
	inc hl
	or a
	jr z,l50ad
	ld c,a
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#28),a
	ld (ix+#26),a
	ld a,c
	and #07
	ld (ix+#2a),a
	neg
	ld (ix+#2b),a
	ld (ix+#27),a
	ld a,#01
.l50ad
	ld (ix+#29),a
	jp l4ec0
.l50b3
	dec hl
	ld a,(hl)
	and #0f
	ld (l51af),a
	inc hl
	ld a,(hl)
	inc hl
	ld (l51ae),a
	ld (ix+#0d),d
	ld (ix+#1a),d
	ld (ix+#06),#10
	jp l4ec0
.l50cd
	ld a,(hl)
	or a
	jr z,l50de
	call l515a
	ld (ix+#2c),a
	ld (ix+#2d),a
	inc hl
	jp l4ec0
.l50de
	ld hl,#0101
	ld (l51aa),hl
	jp l4ec0
.l50e7
	call l5158
	ld (ix+#1e),a
	jp l4ec0
.l50f0
	ld a,(hl)
	inc hl
	push hl
	ld e,a
	rrca
	rrca
	rrca
	rrca
	call l5169
	ld (ix+#0e),c
	ld (ix+#0f),d
	ld a,e
	ld d,#04
	call l5169
	ld (ix+#12),c
	ld (ix+#13),d
	pop hl
	ld d,b
	jp l4ec0
.l5112
	ld a,(hl)
	inc hl
	ld (l51a9),a
	jp l4ec0
.l511a
	ld a,(hl)
	inc hl
	ld c,a
	rrca
	rrca
	rrca
	rrca
	and #0f
	ld (ix+#18),a
	ld a,c
	and #0f
	ld (ix+#19),a
	ld (ix+#06),d
	ld (ix+#0d),d
	ld (ix+#1a),#01
	jp l4ec0
.l5139
	call l5158
	add a
.l513d
	ld b,#00
	ld c,a
	push hl
	ld hl,l53a0
	add hl,bc
	ld a,(hl)
	ld (ix+#0c),a
	inc hl
	ld a,(hl)
	ld (ix+#0d),a
	pop hl
	ld (ix+#06),b
	ld (ix+#1a),b
	jp l4ec0
.l5158
	ld a,(hl)
	inc hl
.l515a
	cp #10
	ret c
	ld c,a
	and #f0
	rrca
	rrca
	rrca
	rrca
	ld d,a
	ld a,c
	and #0f
	ret
.l5169
	and #0f
	add a
	add a
	add a
	add d
	ld c,a
	ld hl,l5320
	add hl,bc
	ld c,(hl)
	inc hl
	ld d,(hl)
	ret
	db #53,#54,#2d,#31,#32,#38,#20,#4d
	db #6f,#64,#75,#6c,#65
.l5185
	di
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ei
.l51a4
	ret
.l51ac equ $ + 7
.l51ab equ $ + 6
.l51aa equ $ + 5
.l51a9 equ $ + 4
.l51a7 equ $ + 2
.l51a5
	db #00,#00,#00,#00,#00,#00,#00,#00
.l51af equ $ + 2
.l51ae equ $ + 1
	db #38,#00,#00
.l51b0
	dw l5033,l5046,l5045,l506a
	dw l5067,l507a,l508b,l50b3
	dw l50cd,l50b3,l50e7,l50f0
.l51ce equ $ + 6
	dw l5112,l511a,l5139,#0000
	dw #0e18,#0d4d,#0c8e,#0bda
	dw #0b2f,#0a8f,#09f7,#0968
	dw #08e1,#0861,#07e9,#0777
	dw #070c,#06a7,#0647,#05ed
	dw #0598,#0547,#04fc,#04b4
	dw #0470,#0431,#03f4,#03bc
	dw #0386,#0353,#0324,#02f6
	dw #02cc,#02a4,#027e,#025a
	dw #0238,#0218,#01fa,#01de
	dw #01c3,#01aa,#0192,#017b
	dw #0166,#0152,#013f,#012d
	dw #011c,#010c,#00fd,#00ef
	dw #00e1,#00d5,#00c9,#00be
	dw #00b3,#00a9,#009f,#0096
	dw #008e,#0086,#007f,#0077
	dw #0071,#006a,#0064,#005f
	dw #0059,#0054,#0050,#004b
	dw #0047,#0043,#003f,#003c
	dw #0038,#0035,#0032,#002f
	dw #002d,#002a,#0028,#0026
	dw #0024,#0022,#0020,#001e
	dw #001c,#001b,#0019,#0018
	dw #0016,#0015,#0014,#0013
	dw #0012,#0011,#0010,#000f
.l5290
	dw #0008
.l5294 equ $ + 2
	db #01,#08,#00,#00,#00,#00,#00,#00
.l529e equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52af equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52be equ $ + 4
	db #00,#00,#00,#00,#09,#02,#03,#10
.l52c2
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52cc equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52dd equ $ + 3
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52f0 equ $ + 6
.l52ec equ $ + 2
	db #00,#00,#0a,#04,#05,#20,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l52fa
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l530b equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l5320 equ $ + 6
.l531a
	dw l54c0,l54e7,l550e,l53c0
	dw l5400,l5420,#0000,l53c0
	dw l5440,l5420,#0000,l53c0
	dw l5460,l5420,#0000,l53c0
	dw l5480,l5420,#0000,l53c0
	dw l54a0,l5420,#0000,#0c84
	dw #0c56,#0c56,#ffa4,#0c84
	dw #0c56,#0c56,#ffa4,#0c84
	dw #0c56,#0c56,#ffa4,#0c84
	dw l5412,l5632,#4740,#0cba
	dw l5652,l5692,#4740
	db #b2,#0c,#84,#0c,#83,#0c,#d2,#ff
	db #84,#0c,#84,#0c,#85,#0c,#d2,#ff
	db #84,#0c,#84,#0c,#83,#0c,#d2,#ff
	db #84,#0c,#84,#0c,#85,#0c,#d2,#ff
	db #84,#0c,#b1,#0c,#b2,#0c,#00,#00
	db #b2,#0c,#b3,#0c,#b2,#0c,#00,#00
.l53a0
	db #b2,#0c,#b1,#0c,#b2,#0c,#b2,#0c
	db #b2,#0c,#b3,#0c,#b2,#0c,#b2,#0c
	db #b2,#0c,#b1,#0c,#b2,#0c,#b2,#0c
	db #b2,#0c,#b3,#0c,#b2,#0c,#b2,#0c
.l53c0
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l5400
	db #09,#09,#09,#09,#09,#09,#09,#09
	db #09,#09,#09,#09,#09,#09,#09,#09
.l5412 equ $ + 2
	db #09,#09,#09,#09,#09,#09,#09,#09
	db #09,#09,#09,#09,#09,#09,#09,#09
.l5420
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l5440
	db #02,#04,#06,#07,#08,#09,#0a,#0a
	db #0b,#0b,#0b,#0b,#0b,#0b,#0b,#0b
	db #0b,#0a,#0a,#0a,#09,#09,#09,#08
	db #08,#08,#07,#07,#06,#05,#04,#00
.l5460
	db #0c,#0d,#0e,#0d,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
.l5480
	db #07,#08,#09,#0a,#0b,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
.l54a0
	db #0c,#0c,#0b,#0b,#0b,#0b,#0a,#0a
	db #0a,#0a,#09,#09,#09,#09,#09,#09
	db #09,#09,#09,#09,#08,#08,#08,#08
	db #08,#08,#08,#08,#08,#08,#08,#08
.l54c0
	db #00,#35,#55,#00,#4f,#55,#00,#4f
	db #55,#00,#4f,#55,#00,#4f,#55,#00
	db #4f,#55,#03,#68,#55,#00,#4f,#55
	db #00,#4f,#55,#03,#68,#55,#00,#4f
.l54e7 equ $ + 7
	db #55,#00,#83,#55,#80,#c0,#54,#00
	db #98,#55,#00,#98,#55,#00,#9b,#55
	db #00,#9b,#55,#00,#ca,#55,#00,#fe
	db #55,#03,#32,#56,#00,#ca,#55,#00
	db #fe,#55,#03,#32,#56,#00,#6a,#56
.l550e equ $ + 6
	db #00,#a6,#56,#80,#e7,#54,#00,#98
	db #55,#00,#c4,#56,#00,#c4,#56,#00
	db #c4,#56,#00,#c4,#56,#00,#c4,#56
	db #03,#df,#56,#00,#c4,#56,#00,#c4
	db #56,#03,#df,#56,#00,#c4,#56,#00
	db #fa,#56,#80,#0e,#55,#2c,#0d,#0d
	db #08,#26,#00,#08,#2c,#00,#08,#26
	db #00,#08,#2c,#00,#08,#26,#00,#08
	db #2c,#00,#08,#29,#00,#08,#ff,#2c
	db #00,#08,#26,#00,#08,#2c,#00,#08
	db #26,#00,#08,#2c,#00,#08,#26,#00
	db #08,#2c,#00,#08,#29,#00,#08,#ff
	db #fe,#03,#50,#10,#08,#52,#10,#08
	db #52,#10,#08,#55,#10,#08,#51,#10
	db #08,#58,#10,#08,#57,#10,#08,#5e
	db #10,#05,#ff,#2c,#00,#08,#26,#00
	db #08,#2c,#00,#08,#26,#00,#08,#2c
	db #00,#02,#31,#30,#0e,#fe,#10,#ff
	db #00,#40,#ff,#38,#30,#06,#39,#20
	db #02,#3a,#20,#06,#39,#20,#02,#38
	db #20,#06,#b9,#20,#ba,#20,#3b,#20
	db #06,#3a,#20,#02,#39,#20,#06,#38
	db #20,#02,#37,#20,#04,#b6,#20,#b5
	db #20,#b4,#20,#38,#20,#09,#38,#40
	db #08,#ff,#44,#3b,#61,#45,#2b,#21
	db #46,#2b,#61,#45,#2b,#21,#44,#2b
	db #61,#45,#2b,#11,#46,#2b,#11,#47
	db #2b,#61,#46,#2b,#21,#45,#2b,#61
	db #44,#2b,#21,#43,#2b,#41,#42,#2b
	db #11,#41,#2b,#11,#40,#2b,#11,#44
	db #2b,#91,#44,#40,#08,#ff,#50,#3b
	db #62,#51,#2b,#22,#52,#2b,#62,#51
	db #2b,#22,#50,#2b,#62,#51,#2b,#12
	db #52,#2b,#12,#53,#2b,#62,#52,#2b
	db #22,#51,#2b,#62,#50,#2b,#22,#4f
	db #2b,#42,#4e,#2b,#12,#4d,#2b,#12
	db #4c,#2b,#12,#50,#2b,#92,#50,#40
.l5632 equ $ + 2
	db #08,#ff,#2c,#30,#06,#2d,#30,#02
	db #2e,#30,#06,#2d,#30,#02,#2e,#30
	db #06,#af,#30,#b0,#30,#31,#30,#06
	db #30,#30,#02,#31,#30,#06,#b2,#30
.l5652 equ $ + 2
	db #b3,#30,#34,#30,#06,#b5,#30,#b6
	db #30,#37,#30,#06,#b8,#30,#b9,#30
	db #3a,#30,#05,#b9,#30,#b8,#30,#b7
	db #30,#ff,#50,#3b,#62,#51,#2b,#22
	db #52,#2b,#62,#51,#2b,#22,#50,#2b
	db #62,#51,#2b,#12,#0b,#12,#52,#2b
	db #62,#51,#2b,#22,#50,#2b,#62,#51
	db #2b,#12,#d2,#20,#53,#2b,#42,#0b
.l5692 equ $ + 2
	db #12,#0b,#12,#52,#2b,#12,#0b,#12
	db #50,#20,#06,#d1,#20,#d2,#20,#53
	db #20,#06,#52,#20,#02,#ff,#51,#2b
	db #62,#50,#20,#02,#4c,#20,#06,#4b
	db #20,#02,#45,#20,#06,#44,#20,#02
	db #40,#20,#06,#3f,#20,#04,#34,#30
	db #0e,#fe,#10,#ff,#00,#03,#34,#10
	db #08,#2e,#10,#08,#34,#10,#08,#2e
	db #10,#08,#34,#10,#08,#2e,#10,#08
	db #34,#10,#08,#35,#10,#05,#ff,#fe
	db #03,#44,#10,#08,#46,#10,#08,#46
	db #10,#08,#49,#10,#08,#49,#10,#08
	db #4c,#10,#08,#4f,#10,#08,#52,#10
	db #05,#ff,#00,#03,#34,#10,#08,#2e
	db #10,#08,#34,#10,#08,#2e,#10,#07
	db #38,#3b,#e5,#fe,#10,#ff,#00,#00
;
.game_name
	db "Fantasy Demo End Part",0
.game_year
	db "",0
.game_publisher
	db "",0
.music_author
	db "",0
.music_comment
	db "ST-128 Module",0

	read "music_end_v1_0.asm"
